add batch-native-compile

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 6b9965b82006837e2140e308d5051a49e7c5e9e1..983ba0e0ba13eb12f981f3e3ba00e29d19a65df1 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1886,6 +1886,11 @@ Return the compilation unit file name."
                              (list input err-val))))))
     data))
 
+;;;###autoload
+(defun batch-native-compile ()
+  "Ultra cheap impersonation of `batch-byte-compile'."
+  (mapc #'native-compile command-line-args-left))
+
 ;;;###autoload
 (defun native-compile-async (input &optional jobs recursively)
   "Compile INPUT asynchronously.